﻿Namespace Admin.Controls
    Public Class VisitorsOnline
        Inherits System.Web.UI.UserControl

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            ' Display current active user count set by Global.asax.
            litVisitors.Text = Application("ActiveUsers")
        End Sub

    End Class
End Namespace